Attribute VB_Name = "SimpleDates"
Option Explicit

Const DATE_SECOND As Integer = 1
Const DATE_MINUTE As Integer = 2
Const DATE_HOUR As Integer = 3
Const DATE_DAY As Integer = 4
Const DATE_WEEK As Integer = 5
Const DATE_MONTH As Integer = 6
Const DATE_YEAR As Integer = 7


Const DATE_JANUARY As Integer = 1
Const DATE_FEBRUARY As Integer = 2
Const DATE_MARCH As Integer = 3
Const DATE_APRIL As Integer = 4
Const DATE_MAY As Integer = 5
Const DATE_JUNE As Integer = 6
Const DATE_JULY As Integer = 7
Const DATE_AUGUST As Integer = 8
Const DATE_SEPTEMBER As Integer = 9
Const DATE_OCTOBER As Integer = 10
Const DATE_NOVEMBER As Integer = 11
Const DATE_DECEMBER As Integer = 12

Public Sub DateAdd(date_ As Date, intervalKind As Integer, interval As Integer)
    
End Sub

